„8. 
Gilbert DALMASSO + Gilles ANDRIVET 


х ж 
х ж 
+ DEUX PROGRAMMES D'EDITION 1 
: : 
х DE MUSIQUE + 
ХКК КК КК КЕК КК 


А quoi зегу1га1еп. des moyens de calcul très rapides si la transcription 
des résultats d'un programme devait se faire à 1а main, avec les risques d'erreurs 


et Та perte de temps conséquents ? 


Un problème classique qui se pose aux musiciens-informaticiens débutants est 
de préférer aux longs et fastidieux transcodages ( passage de colonnes de chiffres 
imprimés à une notation sur portée ) l'impression d'une partition sur portée direc- 
tement interprétable. Le résultat, parfois un peu incomplet étant donné les limites 
de la machine à écrire, peut alors être complété à peu de frais (lignes des portées, 
crescendos etc.). 

Nous proposons ici deux programmes destinés à faciliter l'abord de ces problè- 
mes : Те premier (SORTIE 1 SUR PORTEE, G-.DALMASSO), facilement abordable, montre Те 
mécanisme simple utilisable pour imprimer une portée à partir d'un vecteur contenant, 
sous forme codée, une mélodie écrite en valeurs égales, en gérant soi-même les buf- 


fers de sortie ; le second (PROGRAMME D'ECRITURE MUSICALE, G.ANDRIVET), un peu plus 


compliqué, résout de surcroît les problèmes de durées et de superposition des voix. 


- SORTIE 1 SUR PORTEE ~ 


On lit Та marge (MARGE) à partir de laquelle Та portée doit être imprimée. On 
lit le vecteur contenant la mélodie codée (MEL). 

On range dans un tableau de travail (TRAV) l'équivalent du contenu de MEL sous 
forme de notes identiques rangées selon leurs hauteurs ( une note par ligne du ta- 
bleau TRAV, la colonne remplie correspondant à la hauteur de la note). 

On écrit les repères de portées sous forme de lettres "Т! ѕирегроѕсеѕ, 

On passe де TRAV au buffer de sortie ВИЕ selon 1а marge choisie ( à chaque 


fois une ligne de TRAV est transférée dans BUF et imprimée ), 


L'extension à plusieurs mélodies se fait sans difficultés (voir le programme 
SORTIE 2 SUR PORTEES ). De la même façon, on pourra faire un programme d'édition 
pour un nombre variable de voix (dans les limites de la taille du papier), le nombre 


de voix pouvant être mis en données. 
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- PROGE D'ECR 


Lé Lo 
ХУ 55 


Aux Musiciens, 
Се programme prétend aligner sur une portée traditionnelle 
un certain nombre de notes. Ті tient à conserver la repré- 
sentation classique et ncolaïire d'une succession de боры... 
Aussi шалуеібе souit-sllie 1 
AUX Informaticisns, 
Le but n'est pas de pondre un programme рехгокшза |, Le place 
némoire ne manque pas, elle est largement utilisée pour 
faciliter la compréhension du Listing. 
-11-11-11-11- 
Les Entrées, 
11 n'est pas question de faire entrer des alpha du type 
"ро M," NOIRE ", ou H TRICLBT " dans le machine, Surtout 
еп Algol 50. Les chiffres seront donc utilisés en données. 
Comment les organiser eu mémoire ? 


МЕТА et ЦИТНС si 


structure de 


Deux tableaux 
qui auront une 


Hëma, (т). мбта.(2). 


НЕТА 47 
1 ПБ. ( 


4 
Set 


NØ РА 


Hauteur 


ае Та note 

Durée ддгевве dang 
La prochaine 

Divers : Ex : 

; triolet за nøra. (2). 

| т avoir a 

аз ой étudiera Да 


503. 


БОТА 


Т мм Өз EN 


редно 


оп veut sortir deux portée 
nodèle 2 


note 


з important, 


5 


МОТА./ 


. 
ET ЯТА . 
ІЗ Vi T А 


où оп trouvera 
à étudier, 


= 9 alors, après 
Ја première note, 
note couternue dans 


VOA, (5-1 ), 


2. 


cette ete nulle nous servira pour 
quilibrer із répartition des notes 

dang une même mesure, 

ур. | 223 

Та seconde noire де la deuxième portée 

devrait соЧссісйенк avec Ла premiére croche 

Ол triolet, 
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Même représeutation pour ën, 
Та note s'écriera donc de la feçon suivante 1 
Ex : 0421 5 


Soit 
Ой. са єє єг. srel Ont РД 
2 зоо. C OSE ци nore 


5 ...........1 0 NOTE suivante est еп НОТА. (5) 4 


Les Sorties, 
La machine а écrire n'étant pas adaptée à L'écriture musicale, 
11 а fallu user de certains с габавошев, 
~ heriture verticale des portées, 
Ce qui implique, sur une même іімпе, L'écriture d'un fragment де 
cheque portés 


du papier, 


| Jens de déroulement 


~ Horiture еп rou 1 
~ Utilisation а бопе mémoire tampon, qui chargera une 
Ligne complete et із videra sur le papier, 


Les Déclarations, 
On ne lésine vas sur les parametres, 


АЈ В; С;0- 
La note est done un nombre dout geala Les сотрова се nous 
intéressent, 11 faut Les décoder, 
En reprenant l'exemple ди 0421 3 , les valeurs respectives de 
hauteur, durée, Givers, adresse de Да uote suivante, seront 
retrouvées par із ргосёацгс АЗС. 
аз teur 
Durée 
Divers 

D = Adresse de la note suivante 
Une permutation entre les 'р' ас La note en Lecture ес де Та 
dernière note (0000) du tanleeu, va être utilisée, 
Ce qui donnera 


Ex : ж | “a 


ы” 
ии 


em 
а 4 
} 


Ayant lu ot écrit Да note 0140, оп étudiera Ја note d'adresse 
К-Т soit 0000, donc aucune note écrite. 

Par се jeu де permutation d'adresse, il бега possible de rendre 
lisible ет correct les écritures musicales, 


Le paramètre к indiquera s'il y а в: JJA депоа АТ :0:: 1 
Si К = О дие nue permutation 
4 
ТАЛ 


Si К = I rermutation заг оф ТА 
т 1: : 54 ‚ ширэн ғуы. 
Si К = 2 Fermutation cur ТО 


К sera testé avant toute attaque сит une note составе, 
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Tes 


-Mi N~ 

Compteurs, respectivement de NOTA et NØT; з, qui сошрбФасілірел% 
Le nombre de temps dans chaques D 

за М est supérieur à №, il faudra faire unse permutation du Туре 
étudié ci-dessus, SUT NOTA , de Гасор : rechercher 1'éguilibre 

м égal Н. 

ідет ва и supérieur 5, м. 


-Ү-- 
Paramètre utilisé dano ie remplissese du nur Хе? 
се buffer est rempli par 


Ч varie de ба le moitié du burïïer pour (фра, l'autre moitié 


pour КВ ТО. 


eg Le 
Compteur permettent іє savoir si on travaille sur ЫЙТА ou sur 


NØTB. 


~ D, me 
Seramétre d'incrémentation dans un certain nombre ае boucles 
seint, Utilisé aussi pour indicer une impression en rouge. 


yd 125 
Pour définir ces paramètres, il faut préciser l'étude des triolets, 
Mathémat пц вени %а2 est surprenant. LL с: Ра d'affecter а 1а 
première note d'un triolet un ccéficient Ся2, qui impliguere un 
gaut dans EN addition des tempe dans 18 шсьвагс. 


Dans la mesure,le valeur е: temps de cette note вета 
considérée comme nulle : оп retrouvera alors 2-2, 
Ісі intervient 5 (pour НАТА); ша triolet sans le petit сав ‚ n'est 
pas un triolet; test sur 0; c'est à dire sur Де с ае la note 
précédente, 
En quelque sorte В:=С бі Сета 
à la note suivante test sur В; 


idem pour г. 


D , J- 
r''incrémentation, ou l'avance sur НИТА étant différente đe celle 
de ког, T еї J peront respectivement les indices de ces tanoleaux. 


Frocédures, 


2020 et PRINT. 


ouverture et fermeture d'impression еп гочве, Suivant 18 valeur ае 


Cp 5 p ар CO Ge 2 e зээ 
с. on appelle ZOZO avec 2154. 
suivant Жа valeur се 2, Фа appelle PRIND, avec 2330, 


PLUS et ТОТ 
Procédures d'incrémentation се М et № „ старее“ Да valeur de С, 
оі 72 premiére „ote d'un triolet tr aucune incprémentation, 
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ABC 
Ргосейцге qui décode les simificatife de chaque note, 


BCR 
En appelant EGR, on vide le buffer suivant son contenu numérique, 
еп transformant сев chifires en caracteres згарплаиев. 


FORT et Очи), 
Inpression du cadrage ае Їл portée sur le papier, 


Les Stiquettes, 
ЕТ: 
Départ de l'étude ес écriture d'une ligne сошмр|е+е. 


кг: 


Renvoi pour Le décodage, вах une même Liene, de іа deuxième portée, 


: БІО: et ІІІ: 
Etiquettes facilitant une série де test sur X et с. 


LA: 

ij 
Су 
о 


Utilisé pour саатегр1сл permutation dans NØTA би KETB Si 1 


за, 
4-4Х-4-4 
Evite Да permutation dans НЕТА ou нфт Ба Мен, 


Е9: 


Etiquette се fin de programme si ПТ). 


САТСА DPY 
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ал 
ғ” 
«> % 2 
Là агь 


х SORTIE 1 SUR PORTEE х 
1 
2 "ОЕВ" 
3 "СОМ" 508. ТТЕ1, 
d 
5 'ЕМТ'Т,У,К, МАВСЕ; 
6 "ЕМТ! ТАВ MEL. (1: 30),,В8МУЕ.(1:702,,ТБАУ.(1:30,1:3)., 
7 
8 “СОМ"ЕСТОВЕРрЕ5рОММЕЕ5, 
9 L'IRCCMARGE); ТК ТС (МЕЦ); 
10 
11 "СОМ" МТ ТГАСТ SATIONDESTABLEAUX; 
12 'РОЦ"Т: =1 РА5 1111105 730 ЕА |! 
13 "РО 1:21? РА5 11 111518 "ҒАТ! 
14 ТЕАУ.С1,40.::0; 
15 "РО: =1'РАЗ! 1 "ЈЏо" 70 !ЕАТ? 
16 ВЏЕ„СЈ).: 20; 
17 
18 “Сом! PAS SAGEDEME LA TRAV ; 
19 РОО І: 51 "РАЗ 11 005! ЗО "АТ 
20 ТКАУ, СТ, МЕБ. СТ», >. 
21 
22 "СОМ"ЕСВ ТТЏВЕОЕОВЕРЕВЕ5; 
23 "РООЧК: =MARGE+1' PAS! 21:63 МАВСЕ+9 ‘ЕДІ! 
24 BUF . (K).:=3; 
25 'POU'K: 21"РА6111006170"РАГ! 
26 "51 "ВИР. CO, "ЕЕ! ЗТАГО "ЕХ. (9 ТО) "5ТМ "ЕХ. Со 0); IMPR; 
27 
28 СОМ? PASSAG SÉDETRAVABUFETIMPRESSION; 
29 POU'I:=1" PAS" 1 JUS '30'"FAI"'DEB" 
30 ГРОШТУ: 21 "РАЗ 18996770 ТЕАТ! 
31 ВЈЕ„СЈ).: 20; 
32 "POU'J:=1' PAS "1 "ЈЏо"8"ЕдЈ! 
3 3 "51! ТКАМ. СТ, Ч), "ЕС! 1 "АГО BUF .CMARGE+J). 
34 роу қ: -1"РА6! l'UJUS'79'FAI! 
35 "ST'BUF,CK),'EG'1'ALO'EXL(CO@GD'SIN'EXLCS EN 
36 IMPR; 
37 "ЕТ", КІМІ 
38 
х DONNEES х 
20 
125346875325687542 35 
б 8 5 4 2 4 3 5 7 8 
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PROGRAMME D ECRITURE MUSICALE 


ал а, ая ал 
ч. gp ғ ми 


A 
з ж“ 


ал 
Cé 


1 "РЕВ" 

2 "ЕМТТА, В, С,О,Е,Е,Т,Ч,К,М,М,Х, 7, 72; 

3 

d "ЕМТ"! "ТАВ 'МОТА, МОТВ, (1:90).,ВУЕ. (0:40). ; 

5 

6 "РРО РВІМТСХ1); 'ЕМТ*ХТ; 'DEB''SI'X1'EG'1'ALO" 
7 ЕХ. (° $07) "ЕТМ"!; 

8 

9 "ЕМТ! PROPLUS(X1,X2,X3,X4); "ЕМТ"Х1, Х2, X3, Х4; "ОЕВ" 
10 ІХ "ЕС! 1 "АГО !Х2: <Х2 + ХЦ СТМ! 

11 FSI XL'EG'2'ALO'X3:=X3+X4 FIN"; 

12 

13 ГРРО 'АВССХ1, Х2, ХЗ, Ху, Х5,Х6); 'ENT'X1,X2,X3,X4,X5, Abt 
14 “рЕВ”Х1::5Х49Х5,:Х2::0Х8-0Х15Х5225Х6: 

15 Х3::Х4-00Х15Х5240Х25Х622 ҮЕТМ") 

16 

17 "РВО "ЕСЕ (Х1); "ТЕНТ"Х1; "БЕВ! 

18 SIXI "ЕСТО "АГО "ЕХЕС? 0) "5ТМ" 

19 SI 'X1' EG 1 "АГО ЕХ! (259) !5ТМ! 
20 ' SI ХТ ЕС" 2 ТАГО "ЕХ! Со) "5ТМ" 
21 ТТХ "ЕСИЗТАГО ТЕХ: (2-02) "5ТМ! 
22 РОТТХЪРЕСТЦТАЦО "ЕХ (2008) "5ТМ" 
25 "SI ХТТЕС БЛАТО "ЕХ: Со, 2) "<ТМ! 
24 "SI'X1'EG'6'ALO'EXL(C° ) 2) ' 51м!" 
25 51 ХІ! ЕС! 7 'АО' ЕХЕ (2 8) РІМ! ; 
26 
27 "РЕОЧРОВТ; ‘РЕВ ' їЕМТ'Х1; 
28 ЕЅРАСЕС1); ‘РОО 'Х1; =1'РАЗ 11790955 "ҒАТ! 
29 ЕХЬС9 Т@); ЕФРАСЕСВ)ТЕТН"; 
50 

51 "РВО12070(Х1); ‘ЕМТ'Х1; 
52 "РЕВ "ЕХ: (9 #0); ХІ: 51 "ЕТМ"; 
3 3 
34 ІРЕО!ТЕ5Т(Х1,Х2,Х5,Х4,Х5,Х6У0; 'ENT'X1,X2,X3,X4, X5, X6; 
35 'DEB'ISI'XI'EG'O'ALO PLUSCX2,X3,X4, X5)'!SIN' 
36 'SI'XI'EG'I'ALO’'DEB'PLUSCX2, ХЗ, X4, X5); ZOZOCX6)J'FIN' 
37 FIN’; 
38 
39 Е: ЕР: =М: =М: =К;=0; 1: =4:=1; 
40 LIRTC (NOTA): | ТК ТС (МОТВ); PORT; PORT; 

41 ЕХ! (9250); IMPR; 

42 Ё1: 

43 ГРОЦ!2: 51 "РА5 11 9151740 "ЕАТ "ВУР, (2),: =0; 
44 1511ҮМ"ЕС!8"ЕТЭМ "ЕС! 8 АО! "РЕВ " РОКТ; PORT; 

45 ЕХ. (9250); IMPR; М: =М: 20 ТЕТ"; 
46 АВС СА, В,С,МОТА,(12,, 100,10); 
47 NL; Ye 0: 
48 Е2: 
49 SUE, СА+У).:=В; 
50 РРОЦ?72: ту + 1 PAS 11 1915 1Уу+20 РАІ! "ОЕВ"! 
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51 ІСІЗВЦЕ,(20.7ЕС!1 0УВОЕ,С70. "ЕС !2 00 "БОҒ, СД), ЕС? 
52 ТАО! РЕВ! 
53 ВУР,(7-12,:5808,(17-22,:-:84/Р.(7-37,::3"Е1М", 
54 1511ВУР,(2),1ЕС"1"А1018МЕ,(2447,::5) 
55 51" 
56 СВУР,(22,1ЕС"“11!00"ВОЕ,(7),"ЕС!223"ЕТ!2171МЕ "33 "ЕТ" 
57 ССХ7ЕС! 1 "ЕТ? 
58 (Е "ЕСТОТОЦ ТЕ "Ес" 533) ҒО," 
59 CX'EG'2'ET! 
69 (CF'EG'2'OU'F'EG'3))) 
61 АЦО“ БЕВ“ 
62 BUF , CZ+6).:=6;BUF.(Z+7).:=7;E:=F:=0'FIN''FIN'; 
63 tSIX'EG"2'ALO''ALL'E10; 
64 ІСІЗСТЕС 2 ОЦ "С "ЕС! З "АГО? 
65 ESCI AEL ELLE 
66 Е10: 
67 ІСТЕС! 2" ОЦ ТС ЕС! ЗАО! 
63 ҒісС;Е11: 
59 ТЕ5Т(С,Х,М,М,В,279; 
70 РОО #6: =У+1'РА$ '1l'JUS'Y+19'FAI'! 
71 ЕСЕСВОҒ.(р0.0; 
72 Х:-Х-1, 
73 'SI'X'DIF’ ОАО! "АЧ Е6б, 
74 АВССА, В,С,МОТЗ,(92.,100,102: 
75 Ү: 20) 
76 PRINTCZ); 
77 YALL'E2; 
7 8 E6: 
79 IMPR; 
80 tSJ?K'INF'1'ALO'?ALL'E7; 
81 FSI 'K'ECTI'TALO!''DER" | 
82 1:-40ТА.С1-417,-2:МОТА,(1412,:5:1425:МОТА.(902,::89"Е1М", 
83 ТОТТК СС "2 АО! ҮреЕВв! | 
84 J: =NOTB.CJ+1).-2; NOTB. C(J+1).:=J+2;NOTB.(90).:=89'FIN'}; 
85 К; 0) 
86 ЕЙ: | 
87 fSI'N'EG'M'ALO''ALL'ES: 
88 FSJ'N'SUP'MIALO'!'DEB" 
89 р: =МОТА. (1+1).; МОТА, СІ+1), : 289; МОТА. (90), : =0;К: 51 "ЕТМ"; 
90 'SI'M'SUP'N'ALO’ РЕВ" | 
91 D' <МОТВ.(Ч+1).; МОТВ, (+ 12. : 289; МОТВ. (90), : 10; К: 32 "ЕТМ"; 
92 ЕЗ: 
93 Г: =МОТА .(1+1).; 
94 J:=NOTR,CJ+1),; 
95 fSI'CLEC1)'ALO"’'ALL'E9: 
96 РВТМТС2); 'ALL'El; 
- 97 Ед: 
98 PRINTCZ); 
99 ЕХО гала = = = = =@); IMPR 
100 tFIN'# 
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БР ЧА зр щи АР ЦА АЈ ДИ ай ал АЛ др бр AR ОД ал АР ДА др 
еъ 7% ув ов су ѓа съ ép 49 Үс къ Ұз Л чи?! еу Ғе 


ал Ч - ма 

ge БОММЕЕ5 S 
ВАН > 

ца др АР ад ЛА од ДР араа ал цр AS ар авари ал клал ал 

дъ 65 9% 7% тъ ин 640% сө <ч Фу d'u “ч VS dv LV du 4% 


540 3 541 5 540 7 522 9 320 11 120 13 62 
0 15 720 17 540 19 820 21 620 23 640 25 
6841 27 421 29 620 31 840 33 640 35 820 3 
7 220 59 340 41 0 89 0 89 0 89 0 89 0 89 
0 29 0 89 9 89 0 89 0 80 0 89 0 89 0 89 
089 0 89 0 39 0 89 0 89 9 89 0 89 0 89 
с 39 0 89 0 39 0 89 


312 3 510 5 610 7 521 9 412 11 510 13 61 
1 15 420 17 510 19 410 21 710 23 610 25 
540 27 512 29 610 31 710 33 612 55 710 3 
7 810 39 510 41 610 43 710 85 610 47 

512 89 410 51 310 53 712 55 610 57 510 5 
9 520 61 720 6“ 521 65 620 67 740 09 

880 71 820 73 620 75 512 77 410 79 310 8 
1 412 83 310 85 210 87 140 89 000 89 
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ог 
EK 
d 
e GENEE GRO РАЦЕ РА TU дада АП ТА халиа дана АВ ЛЕР СИНА кт таб ов учиг ПЕРЕ ЧТ EAN ПИЗДЕ 5. лықтары» ~ Lomme nn manne потисок ei да, eg Ца ааа пица Lane D RE PE И Eed CE VE As в х 
Е КА a Р es : : ў Ё | 
i Е Я <% ER 4 4 gd | ј 
Е. | CH ШИ | es сэ 3 о и і 4 O ЕУ 8 р 5 : е; 4 і 
mass ети тво он пити | ботно а ои ени ак иски фе пели ханилах mo: пм Зелен боите PR > ананна ао ное АЎ. пъ ене ааа 25. a one іы COS LT, LP Шо өтеле опити ете ал МИА инает с ааа хан 2. Брат, а ELL сте ото ПА кна а зто нина тети 5 "ч, 
52 2. 3 4 в ў $ в Ё 3 5 8 ї i 
DR AP PE с, х бацаан eet инж ГИНИ алое рање, ада ананын засаа гажих: речта донациите иа: amener: в ч. алом sun илсе чеком иле: хи 
8 g | d { S Жж б 
ды ыы, аналаг. A | = Tape LC TOC ССК ВАЛЕ А. УАЗНИЧИ лж ры UT MAC правата” Хо. Etagen EE, ла шин л бүхы TT У ДА, ТРЕСЕ И БЕНО СР г” СРЕ ECO LT SES МАНЫ Ve Dm PR ау, RE Ent бината Ен Ч КУВАЊЕ D Зови ИЧР PRO LEP 4 
| у 4 | | 
: ! | ; 1 | 
я | ЕН 8 г 9 | 
г. у 81 
8 Н 3 Е | 
Ё 1 d 5 й | 
| r ї | 
d Ч 
; Е SL % | 
б 2 
Т : 3 | И 1 со | 
: sa Е В ва Ы E Е N 
KN 8. ПР алжээ дот он Ар “айдал лдээ нира MES Së, SERIES EECHER EE Cap AE ANEN анас ч ХҮЙС ee зорих ‚рты тала ла то учет кт дент teneurs Leger 3 аннан чав шан 
5 р ұу вэ ма 28 % ј 
та с; Е H 25 Үй E Еј СО | 
въ Di x i НЕ ў: ј 
E алаг фото чанай): жам ылы”. дали зы: го» авсан атас ы фе лиот ото nat LE fonte 1 я E нотног та: men ники arcs 2 нтте? А, шээх ИРНЕ сна. енн овар, песет Дое e? хөт, ӨМ де еді жи о 
ар ри ае ; 4 «а 4 se 4 $ d са er À ае қы” |: ! ту { į 2 è “2 5 3 15058 4 8 
$ 5 + <e «ъ Ё 4% 2 з en + въ es Е с» D PES 2 ah %% 9 
арии Тулах авла о фронт эдр Lemmer: Kee peter оноос аад алатите С Var Le 12-22 zem НА на “фе цан тете ле ету ие жа өч дөөө Serena eur бо пирон Er gen S SE ang гулд круна. Geet Gegen а дон Cer: pre cute теме. Дата Астарта вон. rca” 2. өнөөд” de o 
| » $ Бор мо | рейсі ром Я о :1144 31:14: 01 118 ВИК Е ЕЕ рез Se 
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